home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / libraries / muilist374.lha / mui-lists / getstring-ced.rexx next >
Encoding:
OS/2 REXX Batch file  |  1994-08-29  |  810 b   |  38 lines
  1. /*******************************************************************
  2.  * arexx script to run mui-lists from CED
  3.  *
  4.  * Note: You must change the path to point to where the program is!
  5.  ********************************************************************/
  6.  
  7. muifile = 'data:mui-new/mui-lists'
  8. finished = 0
  9.  
  10. options results
  11.  
  12. if ~show('p',"MUILISTS") then
  13. do
  14.    address command
  15.    'run >nil: <nil: 'muifile
  16.    do 5 while ~show('p',"MUILISTS")
  17.       'WaitForPort MUILISTS'
  18.    end
  19.    address
  20.    if rc=5 then do
  21.       say "Unable to Find MUILISTS"
  22.       exit
  23.    end
  24. end
  25.  
  26. do until finished=1
  27.     address 'MUILISTS'
  28.     'getstring'
  29.     muistring = result
  30.     if muistring = "RESULT" then finished = 1
  31.     else do
  32.         address 'rexx_ced'
  33.         parse VALUE muistring WITH muierr ' ' muistr
  34.         'text' muistr
  35.         if muierr=0 then finished=1
  36.     end
  37. end
  38.